#!/usr/bin/perl
$var=1;
print q(the $var\n);
print qq(is $var\n);
print qq<string "str" (var) in qq>;

